﻿'FilteredListViewItem for use in FilteredListView
'by Bram Debouvere

Option Strict On

Public Class FilteredListViewItem
    Inherits ListViewItem

    Private _displayText() As String

    Public Sub New(ByVal DisplayText() As String, Optional ByVal TaggedObject As Object = Nothing)
        MyBase.New(DisplayText)
        MyBase.Tag = TaggedObject
        _displayText = DisplayText
    End Sub

    Public ReadOnly Property TextArray As String()
        Get
            Return _displayText
        End Get
    End Property

    Public Property TaggedObject As Object
        Get
            Return MyBase.Tag
        End Get
        Set(ByVal Value As Object)
            MyBase.Tag = Value
        End Set
    End Property


End Class
